home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / dc4_one.arc / DC4-CNVT.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-07-01  |  768 b   |  19 lines
  1. 10  DEFINT A-Z:  CLS: LOCATE 10,20
  2. 20  PRINT "What drive is the old DISKCAT.DTA file on?  ";
  3. 30  X$=INKEY$:  IF X$="" THEN 30  ELSE PRINT X$
  4. 40  LOCATE 12,20: PRINT "What drive should DC4.DTA be put on?  ";
  5. 50  Y$=INKEY$:  IF Y$="" THEN 50
  6. 55  CLS: LOCATE 12,35: PRINT "Converting file"
  7. 60  OPEN X$+":diskcat.dta" AS 1 LEN=74:  FIELD 1, 1 AS T$
  8. 70  FIELD 1, 30 AS V$, 25 AS DESCR1$, 10 AS DT1$, 7 AS SZ1$, 2 AS CR$
  9. 80  OPEN Y$+":dc4.dta" AS 2 LEN=82
  10. 90  FIELD 2, 30 AS W$, 36 AS DESCR2$, 8 AS DT2$, 6 AS SZ2$, 2 AS C$
  11. 100  GET 1:  LSET W$=V$: LSET DESCR2$=DESCR1$:  LSET DT2$=DT1$
  12. 105  LSET SZ2$= RIGHT$(SZ1$,6)
  13. 110  LSET C$=CR$:  PUT 2
  14. 120  IF T$<>"\" THEN 100
  15. 130  CLOSE
  16. 140  CLS: BEEP:  LOCATE 12,20
  17. 150  PRINT "From DOS, copy DISKCAT.NFO to DC4.DT2"
  18. 160  END
  19.